install.packages("corrplot")
library(corrplot)

mydata <- readRDS("Correlation_Matrix_Data.rds")

mydata = subset(all.data1, select= c( GPC, LPC, LE, NPC, CPPCC, gov_friend, relative_pc))
M <- cor(mydata)
colnames(M)[6:7]<-c("Government Friends","Relative Connections")
rownames(M)[6:7]<-c("Government Friends","Relative Connections")
corrplot.mixed(M,  lower = "number", upper = "ellipse",tl.pos ="lt",lower.col = "black")
